! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Utility Data Module File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Monitor.f90
! Time                 : Tue Jan  7 17:14:02 2020
! Working directory    : /n/home08/kbates/Aromatics/RACM2_from_Ke
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Monitor


  CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_0 = (/ &
     'C2H4           ','CO2            ','DHDN           ', &
     'IMAE           ','ISN1OG         ','LVOC           ', &
     'MBO            ','MBOOO          ','PMNO2          ', &
     'PYAC           ','TRO2           ','XRO2           ', &
     'H              ','MNO3           ','RCOOH          ', &
     'ONIT           ','LISOPOH        ','LISOPNO3       ', &
     'LBENZ          ','LTOLU          ','LXYLE          ', &
     'PGLYX          ','PCH2O          ','PMGLY          ', &
     'O1D            ','CH4m           ','C3H8           ', &
     'DHDC           ','N2O5           ','PMNN           ', &
     'PPN            ','BENZ           ','TOLU           ', &
     'XYLE           ','XYLO           ','HNO2           ', &
     'IEPOXD         ','CH4            ','COm            ', &
     'BALPC          ','TRO2B          ','XRO2A          ', &
     'XORO2A         ','IEPOXA         ','IEPOXB         ', &
     'ALK4           ','C2H6           ','MAP            ', &
     'IMAO3          ','MPN            ','MPNm           ', &
     'MP             ','RA3P           ','RB3P           ', &
     'ETP            ','HNO4           ','MPm            ', &
     'H2             ','PAN            ','RP             ', &
     'MCT            ','PHEN           ','O              ', &
     'PP             ','H2O2           ','PRPN           ', &
     'CHO            ','EPX            ','EOH            ', &
     'ATOOH          ','HPALD          ','DHPCARP        ', &
     'MRP            ','HCOOH          ','RIPB           ', &
     'HC187          ','VRP            ','HPC52O2        ', &
     'IAP            ','MOBA           ','DHMOB          ', &
     'RIPA           ','RIPD           ','ISNP           ', &
     'ETHLN          ','MAOP           ','MCTO           ', &
     'MVKOO          ','INPN           ','NPMN           ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_1 = (/ &
     'MOHm           ','CH3CHOO        ','GAOO           ', &
     'DIBOO          ','MOBAOO         ','MGLYOO         ', &
     'ROH            ','MACRNO2        ','MGLOO          ', &
     'IPMN           ','ACET           ','MACROO         ', &
     'ISOPNB         ','BALD           ','BALPB          ', &
     'CH2OO          ','ISOP           ','PRPE           ', &
     'ACTA           ','DCB3           ','HNO3           ', &
     'MVKN           ','ISNOHOO        ','IEPOXOO        ', &
     'MOH            ','ISNOOB         ','A3O2           ', &
     'MACRN          ','ISOPNDO2       ','GLYC           ', &
     'DCB1           ','BALPA          ','ISNOOA         ', &
     'MAN2           ','PROPNN         ','ISOPNBO2       ', &
     'PHENNO3        ','MAOPO2         ','DCB2           ', &
     'TRO2A          ','R4P            ','B3O2           ', &
     'XRO2B          ','ATO2           ','ISOPND         ', &
     'VRO2           ','CH2Om          ','CSLOH          ', &
     'PO2            ','HC5OO          ','PRN1           ', &
     'NMAO3          ','MCTP           ','KO2            ', &
     'BRO2           ','GLYX           ','XRO2C          ', &
     'XO2            ','TRO2C          ','PER1           ', &
     'PER2           ','XORO2B         ','CSL            ', &
     'ETO2           ','CH2O           ','ISN1           ', &
     'MGLY           ','HC5            ','RIO2           ', &
     'HAC            ','MRO2           ','MACR           ', &
     'INO2           ','R4N1           ','ALD2           ', &
     'MVK            ','RCO3           ','R4O2           ', &
     'RCHO           ','MO2m           ','MO2            ', &
     'R4N2           ','NO3            ','CO             ', &
     'O3             ','MCO3           ','NO             ', &
     'HO2            ','MEK            ','NO2            ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(3) :: SPC_NAMES_2 = (/ &
     'OH             ','H2O            ','O2             ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(183) :: SPC_NAMES = (/&
    SPC_NAMES_0, SPC_NAMES_1, SPC_NAMES_2 /)

  INTEGER, PARAMETER, DIMENSION(183) :: LOOKAT = (/ &
       1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, &
      13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, &
      25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, &
      37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, &
      49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, &
      61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, &
      73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, &
      85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, &
      97, 98, 99,100,101,102,103,104,105,106,107,108, &
     109,110,111,112,113,114,115,116,117,118,119,120, &
     121,122,123,124,125,126,127,128,129,130,131,132, &
     133,134,135,136,137,138,139,140,141,142,143,144, &
     145,146,147,148,149,150,151,152,153,154,155,156, &
     157,158,159,160,161,162,163,164,165,166,167,168, &
     169,170,171,172,173,174,175,176,177,178,179,180, &
     181,182,183 /)

  INTEGER, DIMENSION(1) :: MONITOR
  CHARACTER(LEN=15), DIMENSION(1) :: SMASS
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ &
     '             O --> O3                                                                               ', &
     '        O + O3 --> O2                                                                               ', &
     '        O + NO --> NO2                                                                              ', &
     '       O + NO2 --> NO                                                                               ', &
     '       O + NO2 --> NO3                                                                              ', &
     '           O1D --> O                                                                                ', &
     '       O3 + NO --> NO2                                                                              ', &
     '      O3 + NO2 --> NO3                                                                              ', &
     '          2 NO --> 2 NO2                                                                            ', &
     '      NO3 + NO --> 2 NO2                                                                            ', &
     '     NO3 + NO2 --> NO + NO2                                                                         ', &
     '     NO3 + NO2 --> N2O5                                                                             ', &
     '           O1D --> 2 OH                                                                             ', &
     '       O3 + OH --> HO2                                                                              ', &
     '       H2 + OH --> HO2                                                                              ', &
     '     H2O2 + OH --> HO2                                                                              ', &
     '      O3 + HO2 --> OH                                                                               ', &
     '      HO2 + OH --> O2                                                                               ', &
     '         2 HO2 --> H2O2                                                                             ', &
     '       NO + OH --> HNO2                                                                             ', &
     '      NO2 + OH --> HNO3                                                                             ', &
     '      NO3 + OH --> HO2 + NO2                                                                        ', &
     '      NO + HO2 --> NO2 + OH                                                                         ', &
     '     HO2 + NO2 --> HNO4                                                                             ', &
     '     HNO4 + OH --> NO2                                                                              ', &
     '     NO3 + HO2 --> NO2 + OH                                                                         ', &
     '     HNO2 + OH --> NO2                                                                              ', &
     '     HNO3 + OH --> NO3                                                                              ', &
     '            O3 --> O1D                                                                              ', &
     '            O3 --> O                                                                                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ &
     '          H2O2 --> 2 OH                                                                             ', &
     '           NO2 --> O + NO                                                                           ', &
     '           NO3 --> NO                                                                               ', &
     '           NO3 --> O + NO2                                                                          ', &
     '          HNO2 --> NO + OH                                                                          ', &
     '          HNO3 --> NO2 + OH                                                                         ', &
     '         2 NO3 --> 2 NO2 + O2                                                                       ', &
     '          N2O5 --> NO3 + NO2 + O2                                                                   ', &
     '          HNO4 --> 0.05 NO3 + 0.95 HO2 + 0.95 NO2 + 0.05 OH                                         ', &
     '          N2O5 --> NO3 + NO2                                                                        ', &
     '          HNO4 --> HO2 + NO2                                                                        ', &
     '      CH4 + OH --> MO2 + H2O                                                                        ', &
     '      MO2 + NO --> CH2O + HO2 + NO2                                                                 ', &
     '     MO2 + HO2 --> MP + O2                                                                          ', &
     '         2 MO2 --> MOH + CH2O + O2                                                                  ', &
     '         2 MO2 --> 2 CH2O + 2 HO2                                                                   ', &
     '     MO2 + NO2 --> MPN                                                                              ', &
     '           MPN --> MO2 + NO2                                                                        ', &
     '       MP + OH --> MO2 + H2O                                                                        ', &
     '       MP + OH --> CH2O + OH + H2O                                                                  ', &
     '     CH2O + OH --> PCH2O + CO + HO2 + H2O                                                           ', &
     '    CH2O + NO3 --> HNO3 + CO + HO2                                                                  ', &
     '      MOH + OH --> CH2O + HO2                                                                       ', &
     '       CO + OH --> CO2 + HO2                                                                        ', &
     '            MP --> CH2O + HO2 + OH                                                                  ', &
     '          CH2O --> PCH2O + CO + 2 HO2                                                               ', &
     '          CH2O --> PCH2O + H2 + CO                                                                  ', &
     '           MPN --> CH2O + NO3 + HO2                                                                 ', &
     '           MPN --> MO2 + NO2 + O2                                                                   ', &
     '     CH4m + OH --> MO2m + H2O                                                                       ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ &
     '     MO2m + NO --> CH2Om + HO2 + NO2                                                                ', &
     '    MO2m + HO2 --> MPm + O2                                                                         ', &
     '        2 MO2m --> MOHm + CH2Om + O2                                                                ', &
     '        2 MO2m --> 2 CH2Om + 2 HO2                                                                  ', &
     '    MO2m + MO2 --> 0.5 MOHm + 0.5 MOH + 0.5 CH2Om + 0.5 CH2O                                        ', &
     '    MO2m + MO2 --> CH2Om + CH2O + 2 HO2                                                             ', &
     '    MO2m + NO2 --> MPNm                                                                             ', &
     '          MPNm --> MO2m + NO2                                                                       ', &
     '      MPm + OH --> MO2m + H2O                                                                       ', &
     '      MPm + OH --> CH2Om + OH + H2O                                                                 ', &
     '    CH2Om + OH --> COm + HO2 + H2O                                                                  ', &
     '   CH2Om + NO3 --> COm + HNO3 + HO2                                                                 ', &
     '     MOHm + OH --> CH2Om + HO2                                                                      ', &
     '      COm + OH --> CO2 + HO2                                                                        ', &
     '           MPm --> CH2Om + HO2 + OH                                                                 ', &
     '         CH2Om --> COm + 2 HO2                                                                      ', &
     '         CH2Om --> COm + H2                                                                         ', &
     '          MPNm --> CH2Om + NO3 + HO2                                                                ', &
     '          MPNm --> MO2m + NO2 + O2                                                                  ', &
     '   A3O2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.75 RCHO + HO2 ... etc.                     ', &
     '    PO2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.5 CH2O + 0.16 HAC ... etc.                 ', &
     '   ETO2 + MO2m --> 0.25 EOH + 0.25 MOHm + 0.75 CH2Om + 0.75 ALD2 + HO2 ... etc.                     ', &
     '   R4O2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.16 ACET + 0.03 A3O2 + 0.09 B3O2 ... etc.                ', &
     '   R4N1 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.2 CH2O + 0.38 ALD2 ... etc.                ', &
     '   ATO2 + MO2m --> 0.5 PMGLY + 0.5 MOHm + 0.5 CH2Om + 0.5 MGLY + 0.2 HAC ... etc.                   ', &
     '    KO2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.5 ALD2 + 0.5 MCO3 ... etc.                 ', &
     '   B3O2 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 ACET + 0.75 CH2Om + HO2 ... etc.                     ', &
     '   PRN1 + MO2m --> 0.25 MOHm + 0.25 ROH + 0.75 CH2Om + 0.5 CH2O + 0.5 ALD2 ... etc.                 ', &
     '   RCO3 + MO2m --> CH2Om + ETO2 + HO2                                                               ', &
     '   RCO3 + MO2m --> RCOOH + CH2Om                                                                    ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ &
     '   MO2m + MCO3 --> CH2Om + MO2 + HO2                                                                ', &
     '   MO2m + MCO3 --> ACTA + CH2Om                                                                     ', &
     '    ATOOH + OH --> ATO2 + H2O                                                                       ', &
     '    ATOOH + OH --> PMGLY + MGLY + OH + H2O                                                          ', &
     '    HCOOH + OH --> CO2 + HO2 + H2O                                                                  ', &
     '     ALD2 + OH --> 0.05 CH2O + 0.05 CO + 0.95 MCO3 + 0.05 HO2 + H2O                                 ', &
     '    ALD2 + NO3 --> HNO3 + MCO3                                                                      ', &
     '    MCO3 + NO2 --> PAN                                                                              ', &
     '           PAN --> MCO3 + NO2                                                                       ', &
     '     MCO3 + NO --> CO2 + MO2 + NO2                                                                  ', &
     '     C2H6 + OH --> ETO2 + H2O                                                                       ', &
     '     ETO2 + NO --> ALD2 + HO2 + NO2                                                                 ', &
     '     C3H8 + OH --> B3O2                                                                             ', &
     '     C3H8 + OH --> A3O2                                                                             ', &
     '     A3O2 + NO --> RCHO + HO2 + NO2                                                                 ', &
     '      PO2 + NO --> CH2O + ALD2 + HO2 + NO2                                                          ', &
     '     ALK4 + OH --> R4O2                                                                             ', &
     '     R4O2 + NO --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.32 ETO2 + 0.32 ALD2 ... etc.               ', &
     '     R4O2 + NO --> R4N2                                                                             ', &
     '     R4N1 + NO --> 0.57 CH2O + 0.86 ALD2 + 0.57 RCHO + 2 NO2                                        ', &
     '     ATO2 + NO --> CH2O + MCO3 + NO2                                                                ', &
     '      KO2 + NO --> 0.93 ALD2 + 0.07 R4N2 + 0.93 MCO3 + 0.93 NO2                                     ', &
     '     RIO2 + NO --> 0.03 DIBOO + 0.081 ISOPNB + 0.009 ISOPND + 0.82 CH2O ... etc.                    ', &
     '          RIO2 --> 0.5 HPALD + 0.5 DHPCARP                                                          ', &
     '     VRO2 + NO --> 0.12 MVKN + 0.53 GLYC + 0.35 CH2O + 0.35 MGLY + 0.53 MCO3 ... etc.               ', &
     '     MRO2 + NO --> 0.122 PMGLY + 0.15 MACRN + 0.122 CH2O + 0.122 MGLY + 0.728 HAC ... etc.          ', &
     '          MRO2 --> HAC + CO + OH                                                                    ', &
     '     MAN2 + NO --> 0.5 PROPNN + 0.5 CH2O + 0.5 MGLY + 0.5 CO + 1.5 NO2 ... etc.                     ', &
     '     B3O2 + NO --> ACET + HO2 + NO2                                                                 ', &
     '     INO2 + NO --> 0.07 CH2O + 0.7 ISN1 + 0.23 HC5 + 0.035 MACR + 0.035 MVK ... etc.                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ &
     '    INO2 + NO3 --> 0.07 CH2O + 0.7 ISN1 + 0.23 HC5 + 0.035 MACR + 0.035 MVK ... etc.                ', &
     '    ISN1 + NO3 --> 0.6 HNO3 + 0.4 ISNOOB + 0.6 ISNOOA                                               ', &
     '  ISNOOA + NO3 --> 0.04 ISN1OG + 0.96 PROPNN + CO + HO2 + NO2                                       ', &
     '   ISNOOA + NO --> 0.04 ISN1OG + 0.96 PROPNN + CO + HO2 + NO2                                       ', &
     '  ISNOOA + NO2 --> 0.04 ISN1OG + 0.96 IPMN                                                          ', &
     '  ISNOOA + HO2 --> 0.04 ISN1OG + 0.25 RCOOH + 0.75 RP + 0.25 O3 + 0.96 NO2 ... etc.                 ', &
     '  ISNOOB + NO3 --> 0.04 ISN1OG + 0.94 PROPNN + GLYX + 2 NO2                                         ', &
     '   ISNOOB + NO --> 0.04 ISN1OG + 0.9 PROPNN + 0.94 GLYX + 1.88 NO2                                  ', &
     '  ISNOOB + HO2 --> 0.04 ISN1OG + 0.96 INPN                                                          ', &
     '  ISNOOB + MO2 --> 0.04 ISN1OG + 0.25 MOH + 0.66 PROPNN + 0.7 GLYX + 0.75 CH2O ... etc.             ', &
     '     ISN1 + O3 --> 0.25 MOH + 0.3 PROPNN + 0.7 GLYX + 0.75 CH2O + 0.5 HO2 ... etc.                  ', &
     '     ISN1 + OH --> 0.655 ISNOHOO + 0.345 ISNOOA                                                     ', &
     '  ISNOHOO + NO --> 0.04 ISN1OG + 0.894 PROPNN + 0.919 GLYX + 0.934 HO2 ... etc.                     ', &
     ' ISNOHOO + HO2 --> 0.04 ISN1OG + 0.96 INPN                                                          ', &
     ' ISNOHOO + MO2 --> 0.04 ISN1OG + 0.25 MOH + 0.66 PROPNN + 0.7 GLYX + 0.75 CH2O ... etc.             ', &
     '        2 INO2 --> 0.5 ISOPND + 0.07 CH2O + 1.2 ISN1 + 0.23 HC5 + 0.035 MACR ... etc.               ', &
     '     PRN1 + NO --> CH2O + ALD2 + 2 NO2                                                              ', &
     '    ALK4 + NO3 --> HNO3 + R4O2                                                                      ', &
     '     R4N2 + OH --> R4N1 + H2O                                                                       ', &
     '     ACTA + OH --> CO2 + MO2 + H2O                                                                  ', &
     '     RCHO + OH --> RCO3 + H2O                                                                       ', &
     '    RCO3 + NO2 --> PPN                                                                              ', &
     '           PPN --> RCO3 + NO2                                                                       ', &
     '   IMAO3 + NO2 --> IPMN                                                                             ', &
     '   NMAO3 + NO2 --> NPMN                                                                             ', &
     '          IPMN --> IMAO3 + NO2                                                                      ', &
     '          NPMN --> NMAO3 + NO2                                                                      ', &
     '     RCO3 + NO --> ETO2 + NO2                                                                       ', &
     '    NMAO3 + NO --> CO2 + 0.5 CH2O + 0.5 MO2 + 0.5 CO + 0.5 MCO3 + NO2                               ', &
     '    RCHO + NO3 --> HNO3 + RCO3                                                                      ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ &
     '     ACET + OH --> ATO2 + H2O                                                                       ', &
     '    A3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 CH2O + 0.75 RCHO + HO2                                ', &
     '     PO2 + MO2 --> 0.25 ROH + 0.25 MOH + 1.25 CH2O + 0.16 HAC + 0.5 ALD2 ... etc.                   ', &
     '    R4O2 + HO2 --> R4P                                                                              ', &
     '    R4N1 + HO2 --> R4N2                                                                             ', &
     '    ATO2 + HO2 --> 0.85 ATOOH + 0.15 CH2O + 0.15 MCO3 + 0.15 OH                                     ', &
     '     KO2 + HO2 --> 0.85 ATOOH + 0.15 ALD2 + 0.15 MCO3 + 0.15 OH                                     ', &
     '    RIO2 + HO2 --> 0.272 RIPB + 0.628 RIPA + 0.037 RIPD + 0.063 CH2O + 0.025 MACR ... etc.          ', &
     '    VRO2 + HO2 --> 0.1 VRP + 0.578 GLYC + 0.102 CH2O + 0.102 MGLY + 0.033 RCHO ... etc.             ', &
     '    MRO2 + HO2 --> MRP                                                                              ', &
     '    MAN2 + HO2 --> 0.85 MAOP + 0.075 PROPNN + 0.075 CH2O + 0.075 MGLY + 0.075 CO ... etc.           ', &
     '    B3O2 + HO2 --> RB3P                                                                             ', &
     '    INO2 + HO2 --> INPN                                                                             ', &
     '    PRN1 + HO2 --> PRPN                                                                             ', &
     '      MEK + OH --> KO2 + H2O                                                                        ', &
     '    ETO2 + MO2 --> 0.25 EOH + 0.25 MOH + 0.75 CH2O + 0.75 ALD2 + HO2                                ', &
     '     NO3 + MEK --> HNO3 + KO2                                                                       ', &
     '    R4O2 + MO2 --> 0.25 ROH + 0.16 ACET + 0.25 MOH + 0.03 A3O2 + 0.09 B3O2 ... etc.                 ', &
     '    R4N1 + MO2 --> 0.25 ROH + 0.25 MOH + 0.95 CH2O + 0.38 ALD2 + 0.15 R4O2 ... etc.                 ', &
     '    ATO2 + MO2 --> 0.5 PMGLY + 0.5 MOH + 0.5 CH2O + 0.5 MGLY + 0.2 HAC ... etc.                     ', &
     '     KO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 CH2O + 0.5 ALD2 + 0.5 MCO3 ... etc.                   ', &
     '    RIO2 + MO2 --> 0.24 ROH + 0.24 MOH + 1.22 CH2O + 0.3 HC5 + 0.18 MACR ... etc.                   ', &
     '        2 RIO2 --> 0.09 DIBOO + 0.75 CH2O + 1.11 HC5 + 0.29 MACR + 0.45 MVK ... etc.                ', &
     '   HC5OO + MO2 --> 0.09 H2 + 0.25 ROH + 0.25 MOH + 0.13 GLYC + 0.95 CH2O ... etc.                   ', &
     '    VRO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.36 GLYC + 0.89 CH2O + 0.14 MGLY ... etc.                 ', &
     '    MRO2 + MO2 --> 0.255 PMGLY + 0.15 ROH + 1.255 CH2O + 0.255 MGLY + 0.595 HAC ... etc.            ', &
     '    MAN2 + MO2 --> 0.375 PROPNN + 0.625 CH2O + 0.375 MGLY + 0.25 R4N2 + 0.375 CO ... etc.           ', &
     '    B3O2 + MO2 --> 0.25 ROH + 0.75 ACET + 0.25 MOH + 0.75 CH2O + HO2                                ', &
     '    INO2 + MO2 --> 0.25 MOH + 0.25 ISOPND + 0.785 CH2O + 0.6 ISN1 + 0.115 HC5 ... etc.              ', &
     '    PRN1 + MO2 --> 0.25 ROH + 0.25 MOH + 1.25 CH2O + 0.5 ALD2 + 0.25 RCHO ... etc.                  ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ &
     '      EOH + OH --> ALD2 + HO2                                                                       ', &
     '      ROH + OH --> RCHO + HO2                                                                       ', &
     '        2 ETO2 --> 2 ALD2 + 2 HO2                                                                   ', &
     '        2 ETO2 --> EOH + ALD2                                                                       ', &
     '    ETO2 + HO2 --> ETP                                                                              ', &
     '    A3O2 + HO2 --> RA3P                                                                             ', &
     '     PO2 + HO2 --> PP                                                                               ', &
     '    MCO3 + HO2 --> 0.41 MAP + 0.15 ACTA + 0.44 MO2 + 0.15 O3 + 0.44 OH ... etc.                     ', &
     '    RCO3 + HO2 --> 0.15 RCOOH + 0.41 RP + 0.44 ETO2 + 0.15 O3 + 0.44 OH ... etc.                    ', &
     '   NMAO3 + HO2 --> 0.41 MAOP + 0.59 CH2O + 0.39 MO2 + 0.39 CO + 0.15 O3 ... etc.                    ', &
     '     PRPE + OH --> PO2                                                                              ', &
     '     PRPE + O3 --> 0.1 CH4 + 0.12 CH3CHOO + 0.12 CH2OO + 0.5 CH2O + 0.5 ALD2 ... etc.               ', &
     '     NPMN + OH --> HAC + CO + NO2                                                                   ', &
     '     IPMN + OH --> 0.781 IMAE + 0.19 PAN + 0.19 CH2O + 0.03 HAC + 0.81 NO3 ... etc.                 ', &
     '     NPMN + O3 --> CH2O + NO3 + MCO3                                                                ', &
     '     IMAE + OH --> OH                                                                               ', &
     '     GLYC + OH --> 0.361 CO2 + 0.134 PGLYX + 0.134 HCOOH + 0.134 GLYX + 0.732 CH2O ... etc.         ', &
     '     GLYC + OH --> HCOOH + CO + OH                                                                  ', &
     '    PRPE + NO3 --> PRN1                                                                             ', &
     '     GLYX + OH --> 2 CO + HO2                                                                       ', &
     '     MGLY + OH --> CO + MCO3                                                                        ', &
     '    GLYX + NO3 --> HNO3 + 2 CO + HO2                                                                ', &
     '    MGLY + NO3 --> HNO3 + CO + MCO3                                                                 ', &
     '     ISOP + OH --> LISOPOH + RIO2                                                                   ', &
     '      MVK + OH --> VRO2                                                                             ', &
     '     MACR + OH --> 0.53 IMAO3 + 0.47 MRO2                                                           ', &
     '      HAC + OH --> PMGLY + MGLY + HO2                                                               ', &
     '      HAC + OH --> 0.5 CO2 + 0.5 HCOOH + 0.5 ACTA + 0.5 MO2 + 0.5 CO + OH ... etc.                  ', &
     '   A3O2 + MCO3 --> RCHO + MO2 + HO2                                                                 ', &
     '    PO2 + MCO3 --> CH2O + ALD2 + MO2 + HO2                                                          ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ &
     '   A3O2 + MCO3 --> ACTA + RCHO                                                                      ', &
     '    PO2 + MCO3 --> ACTA + 0.65 HAC + 0.35 RCHO                                                      ', &
     '     ISOP + O3 --> 0.044 MVKOO + 0.044 MACROO + 0.11 CH2OO + 0.102 PRPE ... etc.                    ', &
     '      MVK + O3 --> 0.12 MGLOO + 0.12 CH2OO + 0.6 CH2O + 0.5 MGLY + 0.1 ALD2 ... etc.                ', &
     '     MACR + O3 --> 0.022 MGLYOO + 0.326 CH2OO + 0.12 CH2O + 0.88 MGLY + 0.625 CO ... etc.           ', &
     '    ISOP + NO3 --> LISOPNO3 + INO2                                                                  ', &
     '    MACR + NO3 --> MAN2                                                                             ', &
     '    MACR + NO3 --> 0.5 IMAO3 + 0.5 MAOP + 0.5 HNO3 + 0.5 MRO2 + 0.5 CO ... etc.                     ', &
     '    RCO3 + MO2 --> ETO2 + CH2O + HO2                                                                ', &
     '   NMAO3 + MO2 --> 2 CH2O + MCO3 + HO2                                                              ', &
     '    RCO3 + MO2 --> RCOOH + CH2O                                                                     ', &
     '   NMAO3 + MO2 --> RCOOH + CH2O                                                                     ', &
     '     INPN + OH --> MEK + NO2 + OH                                                                   ', &
     '     INPN + OH --> 0.36 INO2 + 0.64 R4N2 + 0.64 OH                                                  ', &
     '     PRPN + OH --> 0.791 PROPNN + 0.209 PRN1 + 0.791 OH                                             ', &
     '      ETP + OH --> 0.36 ETO2 + 0.64 ALD2 + 0.64 OH                                                  ', &
     '     RA3P + OH --> 0.36 A3O2 + 0.64 RCHO + 0.64 OH                                                  ', &
     '     RB3P + OH --> 0.791 ACET + 0.209 B3O2 + 0.791 OH                                               ', &
     '      R4P + OH --> 0.209 R4O2 + 0.791 RCHO + 0.791 OH                                               ', &
     '       RP + OH --> RCO3                                                                             ', &
     '       PP + OH --> 0.209 PO2 + 0.791 HAC + 0.791 OH                                                 ', &
     '     RIPA + OH --> 0.007 LVOC + 0.243 HC5 + 0.75 RIO2 + 0.125 OH + 0.125 H2O ... etc.               ', &
     '     RIPB + OH --> 0.007 LVOC + 0.513 HC5 + 0.48 RIO2 + 0.26 OH + 0.26 H2O ... etc.                 ', &
     '     RIPD + OH --> 0.007 LVOC + 0.743 HC5 + 0.25 RIO2 + 0.375 OH + 0.375 H2O ... etc.               ', &
     '     RIPA + OH --> 0.007 LVOC + 0.578 IEPOXA + 0.272 IEPOXB + 0.143 HC5OO ... etc.                  ', &
     '     RIPB + OH --> 0.68 IEPOXA + 0.32 IEPOXB + OH                                                   ', &
     '     RIPD + OH --> 0.007 LVOC + 0.5 IEPOXD + 0.493 HC5OO + 0.5 OH                                   ', &
     '     LVOC + OH --> OH                                                                               ', &
     '   IEPOXA + OH --> IEPOXOO                                                                          ', &
     '   IEPOXB + OH --> IEPOXOO                                                                          ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_8 = (/ &
     '   IEPOXD + OH --> IEPOXOO                                                                          ', &
     ' IEPOXOO + HO2 --> 1.172 CO2 + 0.278 HCOOH + 0.44 HC187 + 0.025 GLYC + 0.085 GLYX ... etc.          ', &
     '  IEPOXOO + NO --> 0.858 CO2 + 0.142 HCOOH + 0.473 HC187 + 0.088 GLYC + 0.088 GLYX ... etc.         ', &
     '      IAP + OH --> 0.654 DHMOB + 0.346 HC5OO + 0.654 OH                                             ', &
     '      VRP + OH --> 0.209 VRO2 + 0.791 MEK + 0.791 OH                                                ', &
     '      MRP + OH --> MRO2                                                                             ', &
     '      MRP + OH --> CO2 + HAC + OH                                                                   ', &
     '     MAOP + OH --> NMAO3                                                                            ', &
     '     MAOP + OH --> MAOPO2                                                                           ', &
     ' MAOPO2 + MCO3 --> 2 CO2 + HAC + MO2 + OH                                                           ', &
     ' MAOPO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '  MAOPO2 + MO2 --> 0.7 CO2 + 0.3 ROH + CH2O + 0.7 HAC + 0.7 HO2 + 0.7 OH ... etc.                   ', &
     '      2 MAOPO2 --> 2 CO2 + 2 HAC + 2 OH                                                             ', &
     '  MAOPO2 + HO2 --> CO2 + HAC + 2 OH                                                                 ', &
     '   MAOPO2 + NO --> CO2 + HAC + NO2 + OH                                                             ', &
     '   MAOPO2 + NO --> HNO3                                                                             ', &
     '      MAP + OH --> MCO3                                                                             ', &
     '    C2H6 + NO3 --> HNO3 + ETO2                                                                      ', &
     '      HC5 + O3 --> 0.055 GAOO + 0.055 MGLYOO + 0.5 GLYC + 0.445 CH2O + 0.5 MGLY ... etc.            ', &
     '        2 MCO3 --> 2 MO2                                                                            ', &
     '    MO2 + MCO3 --> CH2O + MO2 + HO2                                                                 ', &
     '    MO2 + MCO3 --> ACTA + CH2O                                                                      ', &
     '   R4O2 + MCO3 --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.32 ETO2 + 0.32 ALD2 ... etc.               ', &
     '   ATO2 + MCO3 --> CH2O + MO2 + MCO3                                                                ', &
     '    KO2 + MCO3 --> ALD2 + MO2 + MCO3                                                                ', &
     '   RIO2 + MCO3 --> CO2 + 0.113 DIBOO + 0.747 CH2O + 0.14 HC5 + 0.294 MACR ... etc.                  ', &
     '  HC5OO + MCO3 --> 0.17 MOBA + 0.29 DHMOB + 0.234 GLYC + 0.216 GLYX + 0.234 MGLY ... etc.           ', &
     '   VRO2 + MCO3 --> 0.6 GLYC + 0.4 CH2O + 0.4 MGLY + MO2 + 0.6 MCO3 + 0.4 HO2 ... etc.               ', &
     '   MRO2 + MCO3 --> 0.143 PMGLY + 0.143 CH2O + 0.143 MGLY + 0.857 HAC + MO2 ... etc.                 ', &
     '   B3O2 + MCO3 --> ACET + MO2 + HO2                                                                 ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ &
     '   R4N1 + MCO3 --> 0.39 CH2O + 0.75 ALD2 + 0.3 R4O2 + 0.57 RCHO + MO2 + NO2 ... etc.                ', &
     '   MAN2 + MCO3 --> CO2 + 0.5 PROPNN + 0.5 CH2O + 0.5 MGLY + MO2 + 0.5 CO ... etc.                   ', &
     '   INO2 + MCO3 --> 0.07 CH2O + 0.7 ISN1 + 0.23 HC5 + 0.035 MACR + 0.035 MVK ... etc.                ', &
     '   PRN1 + MCO3 --> CH2O + ALD2 + MO2 + NO2                                                          ', &
     '   R4O2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   ATO2 + MCO3 --> PMGLY + ACTA + MGLY                                                              ', &
     '    KO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   RIO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '  HC5OO + MCO3 --> ACTA + MEK                                                                       ', &
     '   VRO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   MRO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   R4N1 + MCO3 --> ACTA + RCHO + NO2                                                                ', &
     '   MAN2 + MCO3 --> ACTA + RCHO + NO2                                                                ', &
     '   INO2 + MCO3 --> ACTA + RCHO + NO2                                                                ', &
     '   PRN1 + MCO3 --> ACTA + RCHO + NO2                                                                ', &
     '   B3O2 + MCO3 --> ACET + ACTA                                                                      ', &
     '   ETO2 + MCO3 --> ALD2 + MO2 + HO2                                                                 ', &
     '   ETO2 + MCO3 --> ACTA + ALD2                                                                      ', &
     '   RCO3 + MCO3 --> ETO2 + MO2                                                                       ', &
     '  NMAO3 + MCO3 --> CH2O + MO2 + MCO3                                                                ', &
     '   ISOPNB + O3 --> 0.36 CO2 + 0.16 HCOOH + 0.41 HNO3 + 0.21 MVKN + 0.32 MACRN ... etc.              ', &
     '   ISOPND + O3 --> 0.63 CO2 + 0.09 EOH + 0.26 ETHLN + 0.3 HNO3 + 0.24 MOH ... etc.                  ', &
     '      HC5 + OH --> HC5OO                                                                            ', &
     '    HC5OO + NO --> 0.17 MOBA + 0.29 DHMOB + 0.234 GLYC + 0.216 GLYX + 0.234 MGLY ... etc.           ', &
     '    HC5OO + NO --> HNO3                                                                             ', &
     '   HC5OO + HO2 --> 0.1 IAP + 0.9 GLYC + 0.9 MGLY + 0.9 HO2 + 0.9 OH                                 ', &
     '   ISOPND + OH --> 0.1 IEPOXD + 0.9 ISOPNDO2 + 0.1 NO2                                              ', &
     '   ISOPNB + OH --> 0.067 IEPOXA + 0.033 IEPOXB + 0.9 ISOPNBO2 + 0.1 NO2 ... etc.                    ', &
     ' ISOPNDO2 + NO --> 0.27 DHDN + 0.057 HCOOH + 0.21 ETHLN + 0.075 MVKN + 0.019 MACRN ... etc.         ', &
     'ISOPNDO2 + HO2 --> 0.5 ISNP + 0.2 ETHLN + 0.06 MVKN + 0.01 MACRN + 0.23 GLYC ... etc.               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_10 = (/ &
     ' ISOPNBO2 + NO --> 0.21 DHDN + 0.26 MVKN + 0.44 MACRN + 0.09 GLYC + 0.7 CH2O ... etc.               ', &
     'ISOPNBO2 + HO2 --> 0.51 ISNP + 0.16 MVKN + 0.28 MACRN + 0.06 GLYC + 0.44 CH2O ... etc.              ', &
     '     ISNP + OH --> 0.193 ISOPNDO2 + 0.193 ISOPNBO2 + 0.612 R4N1 + 0.612 OH ... etc.                 ', &
     '     MVKN + OH --> 0.35 PYAC + 0.65 HCOOH + 0.35 CH2O + 0.65 MGLY + NO3 ... etc.                    ', &
     '    MACRN + OH --> MACRNO2                                                                          ', &
     '  MACRNO2 + NO --> 0.93 CO2 + 0.07 HCOOH + 0.08 ACTA + 0.08 CH2O + 0.07 MGLY ... etc.               ', &
     ' MACRNO2 + HO2 --> 0.93 CO2 + 0.07 HCOOH + 0.08 ACTA + 0.08 CH2O + 0.07 MGLY ... etc.               ', &
     ' MACRNO2 + NO2 --> PMNN                                                                             ', &
     '          PMNN --> MACRNO2 + NO2                                                                    ', &
     '    DHMOB + OH --> 0.5 HAC + 1.5 CO + HO2 + 0.5 MEK                                                 ', &
     '    DIBOO + NO --> 0.52 GLYC + 0.48 GLYX + 0.52 MGLY + 0.48 HAC + HO2 + NO2 ... etc.                ', &
     '    DIBOO + NO --> HNO3                                                                             ', &
     '   DIBOO + HO2 --> 0.078 GLYC + 0.85 R4P + 0.072 GLYX + 0.078 MGLY + 0.072 HAC ... etc.             ', &
     '     MOBA + OH --> MOBAOO                                                                           ', &
     '   MOBAOO + NO --> CO2 + RCHO + HO2 + NO2                                                           ', &
     '   MOBAOO + NO --> HNO3                                                                             ', &
     '  MOBAOO + HO2 --> 0.5 CO2 + 0.5 R4P + 0.5 RCHO + 0.5 HO2 + 0.5 OH                                  ', &
     '     MOBA + O3 --> CO2 + HO2 + MEK + OH                                                             ', &
     '    ETHLN + OH --> CO2 + CH2O + NO2                                                                 ', &
     '   PROPNN + OH --> PMGLY + MGLY + NO2                                                               ', &
     '    CH2OO + CO --> CH2O                                                                             ', &
     '    CH2OO + NO --> CH2O + NO2                                                                       ', &
     '   CH2OO + NO2 --> CH2O + NO3                                                                       ', &
     '   CH2OO + H2O --> H2O2 + CH2O                                                                      ', &
     '   CH2OO + H2O --> HCOOH                                                                            ', &
     '   MACROO + CO --> MACR                                                                             ', &
     '   MACROO + NO --> MACR + NO2                                                                       ', &
     '  MACROO + NO2 --> MACR + NO3                                                                       ', &
     '  MACROO + H2O --> MRP                                                                              ', &
     '  MACROO + H2O --> H2O2 + MACR                                                                      ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_11 = (/ &
     '    MVKOO + CO --> MVK                                                                              ', &
     '    MVKOO + NO --> MVK + NO2                                                                        ', &
     '   MVKOO + NO2 --> MVK + NO3                                                                        ', &
     '   MVKOO + H2O --> H2O2 + MVK                                                                       ', &
     '   MGLYOO + CO --> MGLY                                                                             ', &
     '   MGLYOO + NO --> MGLY + NO2                                                                       ', &
     '  MGLYOO + NO2 --> MGLY + NO3                                                                       ', &
     '  MGLYOO + H2O --> H2O2 + MGLY                                                                      ', &
     '    MGLOO + CO --> MGLY                                                                             ', &
     '    MGLOO + NO --> MGLY + NO2                                                                       ', &
     '   MGLOO + NO2 --> MGLY + NO3                                                                       ', &
     '   MGLOO + H2O --> MO2 + MCO3                                                                       ', &
     '   MGLOO + H2O --> H2O2 + MGLY                                                                      ', &
     '  CH3CHOO + CO --> ALD2                                                                             ', &
     '  CH3CHOO + NO --> ALD2 + NO2                                                                       ', &
     ' CH3CHOO + NO2 --> ALD2 + NO3                                                                       ', &
     ' CH3CHOO + H2O --> H2O2 + ALD2                                                                      ', &
     ' CH3CHOO + H2O --> ACTA                                                                             ', &
     '     GAOO + CO --> GLYC                                                                             ', &
     '     GAOO + NO --> GLYC + NO2                                                                       ', &
     '    GAOO + NO2 --> GLYC + NO3                                                                       ', &
     '    GAOO + H2O --> H2O2 + GLYC                                                                      ', &
     '    GAOO + H2O --> HAC                                                                              ', &
     '    HC187 + OH --> CH2O + 0.5 MGLY + 0.5 CO + 0.5 MCO3 + 0.5 HO2                                    ', &
     '    HPALD + OH --> 0.085 CO2 + 0.365 HPC52O2 + 0.085 GLYX + 0.55 CH2O + 0.55 MGLY ... etc.          ', &
     '  DHPCARP + NO --> GLYX + MGLY + NO2 + OH                                                           ', &
     '  HPC52O2 + NO --> GLYX + MGLY + NO2 + OH                                                           ', &
     ' DHPCARP + HO2 --> RCOOH                                                                            ', &
     ' HPC52O2 + HO2 --> RCOOH                                                                            ', &
     '       DHPCARP --> RCOOH + CO + OH                                                                  ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_12 = (/ &
     '       DHPCARP --> DHDC                                                                             ', &
     '          ALD2 --> 0.88 MO2 + 0.88 CO + 0.12 MCO3 + HO2                                             ', &
     '           PAN --> 0.3 MO2 + 0.3 NO3 + 0.7 MCO3 + 0.7 NO2                                           ', &
     '          RCHO --> ETO2 + CO + HO2                                                                  ', &
     '          ACET --> MO2 + MCO3                                                                       ', &
     '          ACET --> 2 MO2 + CO                                                                       ', &
     '           MEK --> 0.85 ETO2 + 0.15 RCO3 + 0.15 MO2 + 0.85 MCO3                                     ', &
     '          GLYC --> 0.1 MOH + 0.9 CH2O + CO + 1.73 HO2 + 0.07 OH                                     ', &
     '          GLYX --> 2 CO + 2 HO2                                                                     ', &
     '          GLYX --> H2 + 2 CO                                                                        ', &
     '          GLYX --> CH2O + CO                                                                        ', &
     '          MGLY --> CO + MCO3 + HO2                                                                  ', &
     '           MVK --> PRPE + CO                                                                        ', &
     '           MVK --> CH2O + CO + MCO3 + HO2                                                           ', &
     '           MVK --> RCO3 + MO2                                                                       ', &
     '          MACR --> CH2O + CO + MCO3 + HO2                                                           ', &
     '           HAC --> CH2O + MCO3 + HO2                                                                ', &
     '          INPN --> RCHO + HO2 + NO2 + OH                                                            ', &
     '          PRPN --> RCHO + HO2 + NO2 + OH                                                            ', &
     '           ETP --> ALD2 + HO2 + OH                                                                  ', &
     '          RA3P --> RCHO + HO2 + OH                                                                  ', &
     '          RB3P --> ACET + HO2 + OH                                                                  ', &
     '           R4P --> RCHO + HO2 + OH                                                                  ', &
     '            PP --> CH2O + ALD2 + HO2 + OH                                                           ', &
     '            RP --> ALD2 + HO2 + OH                                                                  ', &
     '          RIPA --> 0.005 LVOC + 0.71 CH2O + 0.275 HC5 + 0.285 MACR + 0.425 MVK ... etc.             ', &
     '          RIPB --> 0.005 LVOC + 0.71 CH2O + 0.275 HC5 + 0.285 MACR + 0.425 MVK ... etc.             ', &
     '          RIPD --> 0.005 LVOC + 0.71 CH2O + 0.275 HC5 + 0.285 MACR + 0.425 MVK ... etc.             ', &
     '           IAP --> 0.19 H2 + 0.26 GLYC + 0.58 MGLY + 0.36 HAC + 0.67 CO ... etc.                    ', &
     '          ISNP --> RCHO + HO2 + NO2 + OH                                                            ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_13 = (/ &
     '           VRP --> 0.7 GLYC + 0.3 CH2O + 0.3 MGLY + 0.7 MCO3 + 0.3 HO2 ... etc.                     ', &
     '           MRP --> 0.5 CH2O + HAC + 0.5 CO + HO2 + OH                                               ', &
     '          MAOP --> CH2O + MCO3 + OH                                                                 ', &
     '          R4N2 --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.32 ETO2 + 0.32 ALD2 ... etc.               ', &
     '           MAP --> MO2 + OH                                                                         ', &
     '         MACRN --> 0.5 CH2O + MGLY + HAC + 0.5 CO + HO2 + NO2                                       ', &
     '          MVKN --> GLYC + MCO3 + NO2                                                                ', &
     '        ISOPNB --> HC5 + HO2 + NO2                                                                  ', &
     '        ISOPND --> HC5 + HO2 + NO2                                                                  ', &
     '        PROPNN --> CH2O + MO2 + CO + NO2                                                            ', &
     '         ATOOH --> CH2O + MCO3 + OH                                                                 ', &
     '          IPMN --> 0.4 CO2 + 0.6 IMAO3 + 0.4 CH2O + 0.4 NO3 + 0.4 MCO3 ... etc.                     ', &
     '         ETHLN --> CH2O + CO + HO2 + NO2                                                            ', &
     '          DHDC --> GLYX + MGLY + 2 OH                                                               ', &
     '         HPALD --> 0.11 GLYC + 0.5 MGLY + 0.39 HAC + 1.89 CO + 0.11 MCO3 ... etc.                   ', &
     '          ISN1 --> 0.5 GLYC + 0.25 GLYX + CH2O + 0.25 MGLY + 0.5 HAC + HO2 ... etc.                 ', &
     '     BENZ + OH --> LBENZ + 0.53 PHEN + 0.352 BRO2 + 0.118 RCHO + 0.648 HO2 ... etc.                 ', &
     '     TOLU + OH --> LTOLU + 0.89 TRO2B + 0.06 TRO2A + 0.05 CSL + 0.05 HO2 ... etc.                   ', &
     '    TRO2A + NO --> BALD + NO2                                                                       ', &
     '         TRO2B --> 0.28 EPX + 0.28 DCB2 + 0.28 TRO2C + 0.15 PER1 + 0.01 CSL ... etc.                ', &
     '         TRO2C --> 0.49 DCB2 + 0.5 PER1 + 0.01 CSL + 0.01 HO2 + 0.49 OH ... etc.                    ', &
     '    TRO2C + NO --> 0.05 ONIT + 0.95 DCB2 + 0.95 HO2 + 0.95 NO2                                      ', &
     '     PER1 + NO --> 0.05 ONIT + 0.5 PMGLY + 0.5 BALD + 0.5 DCB1 + 0.5 MGLY ... etc.                  ', &
     '     XYLO + OH --> 0.89 XORO2A + 0.06 XRO2B + 0.05 CSL + 0.05 HO2                                   ', &
     '     XYLE + OH --> LXYLE + 0.89 XRO2A + 0.06 XRO2B + 0.05 CSL + 0.05 HO2 ... etc.                   ', &
     '    XRO2B + NO --> BALD + NO2                                                                       ', &
     '         XRO2A --> 0.84 EPX + 0.224 DCB2 + 0.308 XRO2C + 0.15 PER2 + 0.01 CSL ... etc.              ', &
     '        XORO2A --> 0.84 EPX + 0.224 DCB2 + 0.15 PER2 + 0.308 XORO2B + 0.01 CSL ... etc.             ', &
     '         XRO2C --> 0.49 DCB2 + 0.5 PER2 + 0.01 CSL + 0.01 HO2 + 0.39 OH ... etc.                    ', &
     '        XORO2B --> 0.49 DCB2 + 0.5 PER2 + 0.01 CSL + 0.01 HO2 + 0.49 OH ... etc.                    ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_14 = (/ &
     '    XRO2C + NO --> 0.05 ONIT + 0.95 DCB2 + 0.95 HO2 + 0.95 NO2                                      ', &
     '     PER2 + NO --> 0.05 ONIT + 0.95 PMGLY + 1.95 DCB3 + 0.95 DCB1 + 0.95 MGLY ... etc.              ', &
     '     BALD + OH --> BALPA                                                                            ', &
     '    BALPA + NO --> BALPB + NO2                                                                      ', &
     '    BALPB + NO --> BALPC + NO2                                                                      ', &
     '   BALPC + NO2 --> ONIT                                                                             ', &
     '     PHEN + OH --> 0.73 MCT + 0.07 CHO + 0.2 CSLOH + 0.73 HO2                                       ', &
     '      CSL + OH --> 0.73 MCT + 0.07 CHO + 0.2 CSLOH + 0.73 HO2                                       ', &
     '     DCB2 + OH --> 0.1 PGLYX + 0.01 PMGLY + 0.78 R4P + 0.1 GLYX + 0.01 MGLY ... etc.                ', &
     '     DCB1 + OH --> XO2 + RCHO + MCO3                                                                ', &
     '     DCB3 + OH --> 0.27 PGLYX + 0.01 PMGLY + 0.79 R4P + 0.27 GLYX + 0.01 MGLY ... etc.              ', &
     '    PHEN + NO3 --> 0.4 CHO + 0.5 HNO3 + 0.5 PHENNO3 + 0.1 CSLOH                                     ', &
     '     CSL + NO3 --> 0.4 CHO + 0.5 HNO3 + 0.5 PHENNO3 + 0.1 CSLOH                                     ', &
     '  PHENNO3 + NO --> PGLYX + R4P + GLYX + 2 NO2                                                       ', &
     ' PHENNO3 + NO3 --> PGLYX + R4P + GLYX + 2 NO2                                                       ', &
     ' PHENNO3 + MO2 --> 0.3 ONIT + 0.7 PGLYX + 0.7 R4P + 0.7 GLYX + CH2O + HO2 ... etc.                  ', &
     'PHENNO3 + MO2m --> 0.3 ONIT + 0.7 PGLYX + 0.7 R4P + CH2Om + 0.7 GLYX + HO2 ... etc.                 ', &
     'PHENNO3 + MCO3 --> 0.3 ONIT + 0.7 PGLYX + 0.7 R4P + 0.7 GLYX + MO2 + HO2 ... etc.                   ', &
     ' PHENNO3 + HO2 --> R4P                                                                              ', &
     '     BRO2 + NO --> 0.082 ONIT + 0.918 PGLYX + 0.459 DCB3 + 0.459 DCB2 + 0.918 GLYX ... etc.         ', &
     '   XORO2B + NO --> 0.05 ONIT + 0.35 PGLYX + 0.6 PMGLY + 0.177 DCB3 + 0.7 DCB1 ... etc.              ', &
     '    CSLOH + NO --> 0.68 PGLYX + 0.68 R4P + 0.68 GLYX + 0.32 HAC + HO2 + NO2 ... etc.                ', &
     '    BRO2 + HO2 --> R4P                                                                              ', &
     '  XORO2B + HO2 --> R4P                                                                              ', &
     '   XRO2B + HO2 --> R4P                                                                              ', &
     '   XRO2C + HO2 --> R4P                                                                              ', &
     '    PER1 + HO2 --> R4P                                                                              ', &
     '    PER2 + HO2 --> R4P                                                                              ', &
     '   TRO2A + HO2 --> R4P                                                                              ', &
     '   TRO2C + HO2 --> R4P                                                                              ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_15 = (/ &
     '     CHO + NO2 --> ONIT                                                                             ', &
     '     CHO + HO2 --> CSL                                                                              ', &
     '   CSLOH + HO2 --> R4P                                                                              ', &
     '    BRO2 + MO2 --> 0.6 PGLYX + 0.459 DCB3 + 0.459 DCB2 + 0.6 GLYX + CH2O ... etc.                   ', &
     '   TRO2C + MO2 --> 0.271 PGLYX + DCB2 + 0.271 GLYX + CH2O + 2 HO2                                   ', &
     '   TRO2A + MO2 --> BALD + CH2O + HO2                                                                ', &
     '    PER1 + MO2 --> PMGLY + DCB1 + CH2O + MGLY + 2 HO2                                               ', &
     '  XORO2B + MO2 --> 0.368 PGLYX + 0.632 PMGLY + 0.186 DCB3 + 0.737 DCB1 ... etc.                     ', &
     '   XRO2B + MO2 --> BALD + CH2O + HO2                                                                ', &
     '   XRO2C + MO2 --> DCB2 + CH2O + 2 HO2                                                              ', &
     '    PER2 + MO2 --> PMGLY + 2.05 DCB3 + DCB1 + CH2O + MGLY + 2 HO2                                   ', &
     '   BALPA + MO2 --> BALPB + CH2O + HO2                                                               ', &
     '   BALPB + MO2 --> BALPC + CH2O + HO2                                                               ', &
     '   CSLOH + MO2 --> 0.68 PGLYX + 0.68 R4P + 0.68 GLYX + CH2O + 0.32 HAC ... etc.                     ', &
     '   BRO2 + MO2m --> 0.6 PGLYX + 0.459 DCB3 + 0.459 DCB2 + CH2Om + 0.6 GLYX ... etc.                  ', &
     '  TRO2C + MO2m --> 0.271 PGLYX + DCB2 + CH2Om + 0.271 GLYX + 2 HO2                                  ', &
     '  TRO2A + MO2m --> BALD + CH2Om + HO2                                                               ', &
     '   PER1 + MO2m --> PMGLY + DCB1 + CH2Om + MGLY + 2 HO2                                              ', &
     ' XORO2B + MO2m --> 0.368 PGLYX + 0.632 PMGLY + 0.186 DCB3 + 0.737 DCB1 ... etc.                     ', &
     '  XRO2B + MO2m --> BALD + CH2Om + HO2                                                               ', &
     '  XRO2C + MO2m --> DCB2 + CH2Om + 2 HO2                                                             ', &
     '   PER2 + MO2m --> PMGLY + 2.05 DCB3 + DCB1 + CH2Om + MGLY + 2 HO2                                  ', &
     '  BALPA + MO2m --> BALPB + CH2Om + HO2                                                              ', &
     '  BALPB + MO2m --> BALPC + CH2Om + HO2                                                              ', &
     '  CSLOH + MO2m --> 0.68 PGLYX + 0.68 R4P + CH2Om + 0.68 GLYX + 0.32 HAC ... etc.                    ', &
     '   BRO2 + MCO3 --> 0.6 PGLYX + 0.459 DCB3 + 0.459 DCB2 + 0.6 GLYX + MO2 ... etc.                    ', &
     '  TRO2C + MCO3 --> DCB2 + MO2 + HO2                                                                 ', &
     '  TRO2A + MCO3 --> BALD + MO2                                                                       ', &
     '   PER1 + MCO3 --> PMGLY + DCB1 + MGLY + MO2 + HO2                                                  ', &
     '   PER2 + MCO3 --> PMGLY + 2.05 DCB3 + DCB1 + MGLY + MO2 + HO2                                      ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_16 = (/ &
     '  BALPA + MCO3 --> BALPB + MO2                                                                      ', &
     '  BALPB + MCO3 --> BALPC + MO2                                                                      ', &
     ' XORO2B + MCO3 --> 0.368 PGLYX + 0.632 PMGLY + 0.186 DCB3 + 0.737 DCB1 ... etc.                     ', &
     '  XRO2B + MCO3 --> BALD + MO2                                                                       ', &
     '  XRO2C + MCO3 --> DCB2 + MO2 + HO2                                                                 ', &
     '  CSLOH + MCO3 --> 0.68 PGLYX + 0.68 R4P + 0.68 GLYX + 0.32 HAC + MO2 + 2 HO2 ... etc.              ', &
     '    BRO2 + NO3 --> PGLYX + 0.5 DCB3 + 0.5 DCB2 + GLYX + HO2 + NO2                                   ', &
     '  XORO2B + NO3 --> 0.368 PGLYX + 0.632 PMGLY + 0.186 DCB3 + 0.737 DCB1 ... etc.                     ', &
     '   CSLOH + NO3 --> 0.68 PGLYX + 0.68 R4P + 0.68 GLYX + 0.32 HAC + HO2 + NO2 ... etc.                ', &
     '   TRO2A + NO3 --> BALD + NO2                                                                       ', &
     '   TRO2C + NO3 --> DCB2 + HO2 + NO2                                                                 ', &
     '    PER1 + NO3 --> PMGLY + DCB1 + MGLY + HO2 + NO2                                                  ', &
     '   XRO2B + NO3 --> BALD + NO2                                                                       ', &
     '   XRO2C + NO3 --> DCB2 + HO2 + NO2                                                                 ', &
     '     XO2 + HO2 --> R4P                                                                              ', &
     '     XO2 + MO2 --> CH2O + HO2                                                                       ', &
     '    XO2 + MO2m --> CH2Om + HO2                                                                      ', &
     '    XO2 + MCO3 --> MO2                                                                              ', &
     '      XO2 + NO --> NO2                                                                              ', &
     '     XO2 + NO3 --> NO2                                                                              ', &
     '      MCT + OH --> MCTO                                                                             ', &
     '     MCT + NO3 --> MCTO + HNO3                                                                      ', &
     '     MCTO + O3 --> MCTP                                                                             ', &
     '    MCTO + NO2 --> ONIT                                                                             ', &
     '     MCTP + NO --> MCTO + NO2                                                                       ', &
     '    MCTP + MO2 --> MCTO + CH2O + HO2                                                                ', &
     '   MCTP + MO2m --> MCTO + CH2Om + HO2                                                               ', &
     '   MCTP + MCO3 --> MCTO + MO2 + HO2                                                                 ', &
     '    MCTP + HO2 --> R4P                                                                              ', &
     '    MCTP + NO3 --> MCTO + NO2                                                                       ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_17 = (/ &
     '      EPX + OH --> XO2 + RCHO + CO + HO2                                                            ', &
     '     EPX + NO3 --> 0.5 CO2 + PGLYX + 0.5 HNO3 + GLYX + 1.5 CO + 1.5 HO2 ... etc.                    ', &
     '    PER2 + NO3 --> PMGLY + 2.05 DCB3 + DCB1 + MGLY + HO2 + NO2                                      ', &
     '   BALPA + NO3 --> BALPB + NO2                                                                      ', &
     '   BALPB + NO3 --> BALPC + NO2                                                                      ', &
     '          DCB1 --> 0.5 PGLYX + 0.5 PMGLY + 0.5 GLYX + 2 XO2 + 0.5 ETO2 ... etc.                     ', &
     '          DCB2 --> 0.5 PGLYX + 0.5 PMGLY + 0.5 GLYX + 2 XO2 + 0.5 ETO2 ... etc.                     ', &
     '          BALD --> CHO + CO + HO2                                                                   ', &
     '            O2 --> CH4m                                                                             ', &
     '            O2 --> COm                                                                              ', &
     '            O2 --> O3                                                                               ', &
     '            O2 --> CH2Om                                                                            ', &
     '            O2 --> NO                                                                               ', &
     '            O2 --> BENZ                                                                             ', &
     '            O2 --> TOLU                                                                             ', &
     '            O2 --> XYLE                                                                             ', &
     '            O2 --> XYLO                                                                             ', &
     '          A3O2 --> O2                                                                               ', &
     '          ACET --> O2                                                                               ', &
     '          ACTA --> O2                                                                               ', &
     '          ALD2 --> O2                                                                               ', &
     '          ALK4 --> O2                                                                               ', &
     '          ATO2 --> O2                                                                               ', &
     '         ATOOH --> O2                                                                               ', &
     '          B3O2 --> O2                                                                               ', &
     '          BENZ --> O2                                                                               ', &
     '          BRO2 --> O2                                                                               ', &
     '          C2H4 --> O2                                                                               ', &
     '          C2H6 --> O2                                                                               ', &
     '          C3H8 --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_18 = (/ &
     '          CH2O --> PCH2O + O2                                                                       ', &
     '         CH2OO --> O2                                                                               ', &
     '       CH3CHOO --> O2                                                                               ', &
     '            CO --> O2                                                                               ', &
     '           CO2 --> O2                                                                               ', &
     '          DHDN --> O2                                                                               ', &
     '          DHDC --> O2                                                                               ', &
     '         DHMOB --> O2                                                                               ', &
     '       DHPCARP --> O2                                                                               ', &
     '         DIBOO --> O2                                                                               ', &
     '           EOH --> O2                                                                               ', &
     '         ETHLN --> O2                                                                               ', &
     '          ETO2 --> O2                                                                               ', &
     '           ETP --> O2                                                                               ', &
     '          GAOO --> O2                                                                               ', &
     '          GLYC --> O2                                                                               ', &
     '          GLYX --> O2                                                                               ', &
     '          H2O2 --> O2                                                                               ', &
     '           HAC --> O2                                                                               ', &
     '         HC187 --> O2                                                                               ', &
     '           HC5 --> O2                                                                               ', &
     '         HC5OO --> O2                                                                               ', &
     '         HCOOH --> O2                                                                               ', &
     '          HNO2 --> O2                                                                               ', &
     '          HNO3 --> O2                                                                               ', &
     '          HNO4 --> O2                                                                               ', &
     '           HO2 --> O2                                                                               ', &
     '         HPALD --> O2                                                                               ', &
     '       HPC52O2 --> O2                                                                               ', &
     '           IAP --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_19 = (/ &
     '        IEPOXA --> O2                                                                               ', &
     '        IEPOXB --> O2                                                                               ', &
     '        IEPOXD --> O2                                                                               ', &
     '       IEPOXOO --> O2                                                                               ', &
     '          IMAE --> O2                                                                               ', &
     '         IMAO3 --> O2                                                                               ', &
     '          INO2 --> O2                                                                               ', &
     '          INPN --> O2                                                                               ', &
     '          IPMN --> O2                                                                               ', &
     '          ISN1 --> O2                                                                               ', &
     '        ISN1OG --> O2                                                                               ', &
     '        ISNOOA --> O2                                                                               ', &
     '        ISNOOB --> O2                                                                               ', &
     '       ISNOHOO --> O2                                                                               ', &
     '          ISNP --> O2                                                                               ', &
     '          ISOP --> O2                                                                               ', &
     '        ISOPNB --> O2                                                                               ', &
     '      ISOPNBO2 --> O2                                                                               ', &
     '        ISOPND --> O2                                                                               ', &
     '      ISOPNDO2 --> O2                                                                               ', &
     '           KO2 --> O2                                                                               ', &
     '          LVOC --> O2                                                                               ', &
     '          MACR --> O2                                                                               ', &
     '         MACRN --> O2                                                                               ', &
     '       MACRNO2 --> O2                                                                               ', &
     '        MACROO --> O2                                                                               ', &
     '          MAN2 --> O2                                                                               ', &
     '          MAOP --> O2                                                                               ', &
     '        MAOPO2 --> O2                                                                               ', &
     '           MAP --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_20 = (/ &
     '           MBO --> O2                                                                               ', &
     '         MBOOO --> O2                                                                               ', &
     '          MCO3 --> O2                                                                               ', &
     '           MEK --> O2                                                                               ', &
     '         MGLOO --> O2                                                                               ', &
     '          MGLY --> O2                                                                               ', &
     '        MGLYOO --> O2                                                                               ', &
     '          MOBA --> O2                                                                               ', &
     '        MOBAOO --> O2                                                                               ', &
     '           MO2 --> O2                                                                               ', &
     '            MP --> O2                                                                               ', &
     '           MPN --> O2                                                                               ', &
     '          MRO2 --> O2                                                                               ', &
     '           MRP --> O2                                                                               ', &
     '           MVK --> O2                                                                               ', &
     '          MVKN --> O2                                                                               ', &
     '         MVKOO --> O2                                                                               ', &
     '          N2O5 --> O2                                                                               ', &
     '         NMAO3 --> O2                                                                               ', &
     '            NO --> O2                                                                               ', &
     '           NO2 --> O2                                                                               ', &
     '           NO3 --> O2                                                                               ', &
     '          NPMN --> O2                                                                               ', &
     '           O1D --> O2                                                                               ', &
     '            O3 --> O2                                                                               ', &
     '            OH --> O2                                                                               ', &
     '           PAN --> O2                                                                               ', &
     '          PMNN --> O2                                                                               ', &
     '         PMNO2 --> O2                                                                               ', &
     '           PO2 --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_21 = (/ &
     '            PP --> O2                                                                               ', &
     '           PPN --> O2                                                                               ', &
     '          PRN1 --> O2                                                                               ', &
     '          PRPE --> O2                                                                               ', &
     '          PRPN --> O2                                                                               ', &
     '        PROPNN --> O2                                                                               ', &
     '          PYAC --> O2                                                                               ', &
     '          R4N1 --> O2                                                                               ', &
     '          R4N2 --> O2                                                                               ', &
     '          R4O2 --> O2                                                                               ', &
     '           R4P --> O2                                                                               ', &
     '          RA3P --> O2                                                                               ', &
     '          RB3P --> O2                                                                               ', &
     '          RCHO --> O2                                                                               ', &
     '          RCO3 --> O2                                                                               ', &
     '          RIO2 --> O2                                                                               ', &
     '          RIPA --> O2                                                                               ', &
     '          RIPB --> O2                                                                               ', &
     '          RIPD --> O2                                                                               ', &
     '           ROH --> O2                                                                               ', &
     '            RP --> O2                                                                               ', &
     '          TOLU --> O2                                                                               ', &
     '          TRO2 --> O2                                                                               ', &
     '          VRO2 --> O2                                                                               ', &
     '           VRP --> O2                                                                               ', &
     '          XYLE --> O2                                                                               ', &
     '          XRO2 --> O2                                                                               ', &
     '          DCB1 --> O2                                                                               ', &
     '          DCB2 --> O2                                                                               ', &
     '          DCB3 --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_22 = (/ &
     '          BALD --> O2                                                                               ', &
     '         BALPA --> O2                                                                               ', &
     '         BALPB --> O2                                                                               ', &
     '         BALPC --> O2                                                                               ', &
     '           CHO --> O2                                                                               ', &
     '           CSL --> O2                                                                               ', &
     '         CSLOH --> O2                                                                               ', &
     '       PHENNO3 --> O2                                                                               ', &
     '           MCT --> O2                                                                               ', &
     '          PHEN --> O2                                                                               ', &
     '         TRO2A --> O2                                                                               ', &
     '         TRO2B --> O2                                                                               ', &
     '         TRO2C --> O2                                                                               ', &
     '          PER1 --> O2                                                                               ', &
     '          PER2 --> O2                                                                               ', &
     '           EPX --> O2                                                                               ', &
     '          XYLO --> O2                                                                               ', &
     '         XRO2A --> O2                                                                               ', &
     '         XRO2B --> O2                                                                               ', &
     '         XRO2C --> O2                                                                               ', &
     '        XORO2A --> O2                                                                               ', &
     '        XORO2B --> O2                                                                               ', &
     '           XO2 --> O2                                                                               ', &
     '          MCTO --> O2                                                                               ', &
     '          MCTP --> O2                                                                               ', &
     '           CH4 --> O2                                                                               ', &
     '             H --> O2                                                                               ', &
     '            H2 --> O2                                                                               ', &
     '          MNO3 --> O2                                                                               ', &
     '           MOH --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(10) :: EQN_NAMES_23 = (/ &
     '             O --> O2                                                                               ', &
     '         RCOOH --> O2                                                                               ', &
     '          ONIT --> O2                                                                               ', &
     '          CH4m --> O2                                                                               ', &
     '           COm --> O2                                                                               ', &
     '         CH2Om --> O2                                                                               ', &
     '          MO2m --> O2                                                                               ', &
     '           MPm --> O2                                                                               ', &
     '          MPNm --> O2                                                                               ', &
     '          MOHm --> O2                                                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(700) :: EQN_NAMES = (/&
    EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, &
    EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8, EQN_NAMES_9, &
    EQN_NAMES_10, EQN_NAMES_11, EQN_NAMES_12, EQN_NAMES_13, EQN_NAMES_14, &
    EQN_NAMES_15, EQN_NAMES_16, EQN_NAMES_17, EQN_NAMES_18, EQN_NAMES_19, &
    EQN_NAMES_20, EQN_NAMES_21, EQN_NAMES_22, EQN_NAMES_23 /)

! INLINED global variables

! End INLINED global variables


END MODULE aromatics_kpp_Monitor
